home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / unixflow.for < prev    next >
Encoding:
Text File  |  1992-07-31  |  5.5 KB  |  183 lines
  1.       PROGRAM FLOW
  2. C-------------------------------------------------------------------------
  3. C Flow UNIX interface routine.
  4. C Sets up various required input files and parameters for Flow
  5. C 
  6. C Julian Bunn 1992
  7. C-------------------------------------------------------------------------
  8.       INCLUDE 'lunits.h'
  9.       INCLUDE 'params.h'
  10.       INCLUDE 'jobcom.h'
  11.       INCLUDE 'ignore.h'
  12.       INCLUDE 'trecom.h'
  13.       PARAMETER (MLLEN=255,maxarg=100)
  14.       character*(mxlin) argval
  15.       character*1 key,char
  16.       CHARACTER*(MLLEN)  cfile,clong
  17.       LOGICAL LOG,fexist,fold,fqold,tidy
  18. c
  19. c get all arguments
  20. c
  21.       numargs = iargc()
  22.       if(numargs.gt.maxarg) then
  23.          write(6,'(A)') ' Flow --> Too many arguments '
  24.          goto 900
  25.       endif
  26. c
  27. c get input file from Flow
  28. c
  29.       call getarg(numargs,cfile)       
  30.       lfile = index(cfile,' ')-1
  31.       write(6,'(A)') ' Flow --> Input Floppy file '//cfile(:lfile)
  32.       inquire(file=cfile(:lfile),exist=fexist)
  33.       if(.not.fexist) then
  34.         write(6,'(A)') ' Flow --> Input file not found !'
  35.         goto 900
  36.       endif
  37.       lintre = 50
  38.       open(lintre,file=cfile(:lfile),status='old',
  39.      &     form='unformatted',err=900)
  40. c
  41.       log = .false.      
  42.       lext = .true.
  43.       lqery = .false.                    
  44.       lchrt = .false.
  45.       lsubs = .false.
  46.       lcomm = .false.
  47.       ltree = .false.
  48.       loutch = 96
  49.       ctree = '$$$$'
  50. c
  51. c Find if -l was given
  52. c
  53.       do 400 iarg = 1,numargs-1
  54.          call getarg(iarg,argval)
  55.          larg = index(argval,' ')-1 
  56.          key = argval(2:2)
  57.          if(key.eq.'l') then
  58.            log = .true.
  59.          endif
  60.   400 continue
  61. c
  62. c loop over all qualifiers
  63. c
  64.       icheck = 0
  65.       do 500 iarg = 1,numargs-1
  66.          call getarg(iarg,argval)
  67.          larg = index(argval,' ')-1 
  68.          key = argval(2:2)
  69.          if(key.eq.'l') then
  70.            log = .true.
  71.          else if(key.eq.'q') then
  72.            lqery = .true.
  73.            if(log) write(6,'(A)') ' Flow --> Queries on the tree'
  74.          else if(key.eq.'E') then
  75.            lext = .false.
  76.            if(log) write(6,'(A)') ' Flow --> Exclude externals'
  77.          else if(key.eq.'c') then
  78.            if(argval(3:3).eq.' ') then
  79.               ccomm = 'procom.dat'
  80.               lcmm = 10
  81.            else
  82.               ccomm = argval(3:)
  83.               lcmm = index(ccomm,' ')-1 
  84.            endif
  85.            inquire(file=ccomm(:lcmm),exist=fexist)
  86.            if(fexist) then
  87.               open(loutco,file=ccomm(:lcmm),status='old')
  88.               close(loutco,status='delete')
  89.            endif
  90.            if(log) write(6,'(A)') ' Flow --> COMMON Table: '//
  91.      &             ccomm(:lcmm) 
  92.            lcomm = .true.
  93.            loutco = 60
  94.            open(loutco,file=ccomm(:lcmm),status='new',err=900)
  95.          else if(key.eq.'s') then
  96.            if(argval(3:3).eq.' ') then
  97.               chart = 'protre.dat'
  98.               lchart = 10
  99.            else
  100.               chart = argval(3:)
  101.               lchart = index(chart,' ')-1 
  102.            endif
  103.            inquire(file=chart(:lchart),exist=fexist)
  104.            if(fexist) then
  105.               open(loutre,file=chart(:lchart),status='old')
  106.               close(loutre,status='delete')
  107.            endif
  108.            if(log) write(6,'(A)') ' Flow --> Text Structure Chart: '//
  109.      &             chart(:lchart) 
  110.            ltree = .true.
  111.            loutre = 61
  112.            open(loutre,file=chart(:lchart),status='new',err=900)
  113.          else if(key.eq.'i') then
  114.            clong = argval(3:)
  115.            llong = lenocc(clong)
  116.            if(llong.le.0) then
  117.               write(6,'(A)') ' Flow --> No Ignore names given'
  118.               goto 900
  119.            endif
  120.    60      icomma = index(clong,',')
  121.            if(icomma.ne.0) then
  122.               nigno = nigno + 1
  123.               cigno(nigno) = clong(:icomma-1)
  124.               ligno(nigno) = icomma-1
  125.               clong = clong(icomma+1:)
  126.               call caschg(cigno(nigno),cigno(nigno))
  127.               goto 60
  128.            endif
  129.            nigno = nigno + 1
  130.            ligno(nigno) = index(clong,' ')-1
  131.            cigno(nigno) = clong(:ligno(nigno))
  132.            call caschg(cigno(nigno),cigno(nigno))
  133.            if(log) write(6,'(A)') ' Flow --> Ignore modules:'
  134.            if(log) write(6,'(10x,6a8)') (cigno(i),i=1,nigno)
  135.          else if(key.eq.'g') then
  136.            if(argval(3:3).eq.' ') then
  137.               cgraph = 'flow.ps'
  138.               lgraph = 7
  139.            else
  140.               cgraph = argval(3:)
  141.               lgraph = index(cgraph,' ')-1 
  142.            endif
  143.            inquire(file=cgraph(:lgraph),exist=fexist)
  144.            if(fexist) then
  145.               open(loutch,file=cgraph(:lgraph),status='old')
  146.               close(loutch,status='delete')
  147.            endif
  148.            if(log) write(6,'(A)') ' Flow --> Graphical Chart: '//
  149.      &             cgraph(:lgraph) 
  150.            lchrt = .true.
  151.            loutre = 96
  152.            open(loutre,file=chart(:lchart),status='new',err=900)
  153.          else if(key.eq.'n') then
  154.            ctree = argval(3:)
  155.            ltre = lenocc(ctree)
  156.            if(ltre.le.0) then
  157.              if(log) write(6,'(A)') ' Flow --> No node name for -n'
  158.              goto 900
  159.            endif
  160.            call caschg(ctree,ctree)
  161.            if(log) write(6,'(A)') ' Flow --> Start from node: '//
  162.      &             ctree(:ltre)
  163.          else 
  164.            write(6,'(A)') ' Flow --> Unrecognized qualifier '//key
  165.            goto 900
  166.          endif
  167.   500 continue
  168. c
  169. c Call Flow
  170. c
  171.       call prodes
  172. c
  173.       if(lcomm) close(loutco)
  174.       if(ltree) close(loutre)
  175.       if(lchrt) close(loutch)
  176.       close(lintre)
  177.       goto 2000
  178. c
  179.   900 write(6,'(A)') ' Flow aborted'     
  180.       stop 1
  181.  2000 CONTINUE
  182.       END
  183.